home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 9 / FM Towns Free Software Collection 9.iso / t_os / tool / convconv / convconv.bas next >
BASIC Source File  |  1994-11-16  |  1KB  |  27 lines
  1. 10 '******************************************************************
  2. 20 '*　　　Ｚ’ｓ　ＴＲＩＰＨＯＮＹ　ＤＥＧＩＴＡＬ　ＣＲＡＦＴ　　　*
  3. 30 '*をつかって出来たデータをＧＣＯＮＶでＥＡＳＴＲＡＹ用にコンバート*
  4. 40 '*それをスムースシェーディングのオプションをつける＆現在のＥＡＳＴ*
  5. 50 '*ＲＡＹには不要な%Polygonsという行を省いてファイルに落とすプログ *
  6. 60 '*ラムＶｅｒ．１．０　　　　　　　by ＮＯＩ’ｚ（高橋英彦）   　　*
  7. 70 '******************************************************************
  8. 80 'しかもめちゃくちゃ簡単なソースファイル
  9. 90 LINE INPUT"変換したいファイルを拡張し付きで入力してください。:",FLN$
  10. 100 LINE INPUT"変換後のファイル名を入力してください。:",FLN2$
  11. 110 ON ERROR GOTO *NOFILE
  12. 120 OPEN "I",#1,FLN$
  13. 130 ON ERROR GOTO *WRITE_ERROR
  14. 140 OPEN "A",#2,FLN2$
  15. 150 PRINT"***********************変換中**************************"
  16. 160 INPUT#1,DAT$
  17. 170 IF LEFT$(DAT$,1)="%" THEN GOTO 160
  18. 180 IF LEFT$(DAT$,1)="P" THEN DAT$=DAT$+" s"
  19. 190 PRINT DAT$
  20. 200 PRINT#2,DAT$
  21. 210 IF EOF(1)=-1 THEN PRINT"**********************変換終了*************************":CLOSE#1,#2:END
  22. 220 GOTO 160
  23. 230 *NOFILE
  24. 240 PRINT"ファイルがありません。":END
  25. 250 *WRITE_ERROR
  26. 260 PRINT"ファイルが書き込めません。":END
  27.